|
|  Odd and Even
|  Written by Ph. DONSBACK
|
|  Firstfly works without AutoFly for the game
|
SCRIPT_TYPE 1
|
BEGIN "Odd and Even"

  FLAGS ClickFly AnimateFly
  PACKS 2
  WIDTH 9 * CW
  HEIGHT CH * 4 + COH
  ZeroToWin 104 - CARDSIN$2 

| Foundations

  FOR stack = 0 TO 3
    FOUNDATION
      X stack * CW
      Y 0
      First 1
      JoinOffset 2
      FLAGS RotateJoin JoinSS__
      ID 2
    END

    FOUNDATION
      X 5 * CW + stack * CW
      Y 0
      First 2
      JoinOffset 2
      FLAGS RotateJoin JoinSS__
      ID 2
    END
  END

| Reserves

  FOR stack = 2 TO 6
    STACK
      X stack * CW
      Y CH
      DEAL 1,1
      MAX 1
      First 1,13
      FirstFrom 4,3
      DragUpTo 1
      FLAGS clickfly PaintLast FirstFly
    END
  END

  FOR stack = 2 TO 5
    STACK
      X stack * CW + CW / 2
      Y 2 * CH
      DEAL 1,1
      MAX 1
      First 1,13
      FirstFrom 4,3
      DragUpTo 1
      FLAGS clickfly PaintLast FirstFly
    END

  END

| Stock

  STACK
    X 3 * CW + CW / 2
    Y 3 * CH + COH
    DEAL 94
    DEALTO 4,1
    TAKEFROM 4,1
    MAX 0
    DRAGUPTO 0
    FLAGS PaintCount
    ID 3
  END

| Waste

  STACK
    X 4 * CW + CW / 2
    Y 3 * CH + COH
    DEAL 1,1
    MAX 0
    DRAGUPTO 1
    FLAGS PaintLast
    ID 4
  END


END
